home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Backup / DIA127CR.DMS / in.adf / Install Diavolo < prev    next >
Encoding:
Text File  |  1994-06-24  |  8.0 KB  |  240 lines
  1. ; Install-Script für Diavolo-Backup
  2. ;
  3. ; © 1993/1994 Martin Korndörfer
  4. ;
  5. ; $VER:DiavoloInstall 1.18 (24-Jun-93)
  6. ;
  7. ; Version 1.18
  8. ;
  9. ;   - Versionsnummern angepasst
  10. ;   - iffparse.library wird mitkopiert
  11. ;   - LIESMICH 1.18 mitkopieren
  12. ;
  13. ; Version 1.17
  14. ;
  15. ;   - Versionsnummern angepasst
  16. ;   - Magic Menu entfernt. Anleitungstexte werden kopiert.
  17. ;   - Confirm für Expertenmodus eingebaut.
  18. ;   - NOICONPOS entfernt.
  19. ;
  20. ; Version 1.12:
  21. ;
  22. ;   - Versionsnummern angepasst
  23. ;
  24. ; Version 1.10:
  25. ;
  26. ;   - Text für XPK Installation geändert.
  27. ;
  28. ; Version 1.9:
  29. ;
  30. ;   - Die Katalog-Datei wird nun auch immer in locale:catalogs... gespeichert,
  31. ;     um Problemen aus dem Weg zu gehen, wenn Diavolo in ein anderes 
  32. ;     Verzeichnis kopiert wird.
  33. ;   - Alle System-Libraries werden nun nach sys:libs statt libs: kopiert.
  34. ;     Die Locale.library wird kopiert.
  35. ;   - Der Anwender hat die Möglichkeit die fehlenden xpkXXXX.libraries aus
  36. ;     dem XPK Paket ins libs: zu installieren.
  37. ;
  38. ; Version 1.8:
  39. ;
  40. ;   - Wenn das Assign "LOCALE:" nicht vorhanden ist, wird es auch nicht mehr
  41. ;     abgefragt (unter 2.04 erschient sonst ein "Please insert..." Requester)
  42. ;   - Die asl. und diskfont.library werden kopiert. Die Fonts werden ins
  43. ;     Diavolo Verzeichnis kopiert.
  44.  
  45.  
  46. (set @abort-button "Installation abbrechen")
  47.  
  48. (set @app-name "Diavolo Backup 1.18")
  49.  
  50. (set @language "deutsch")
  51.  
  52. (welcome "Willkommen zur Installation von Diavolo Backup 1.18!")
  53.  
  54. (set Ok 0)
  55.  
  56. (complete 0)
  57.  
  58. (set savedest @default-dest)
  59.  
  60. (set ToDo (askoptions (prompt "Bitte wählen Sie die gewünschte Operation:")
  61.                       (help @askoptions-help)
  62.                       (choices "Diavolo Backup installieren"
  63.                                "XPK-library installieren bzw. updaten"
  64.                                "XPK Anleitungen und restl. Packer installieren")
  65.                       (default $3))
  66. )
  67.  
  68. (if (<> (BITAND ToDo $1) 0)
  69.     ((set newdest (askdir (prompt "Bitte wählen Sie, wohin Diavolo Backup installiert werden soll.")
  70.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin Diavolo Backup \
  71. installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  72. Installationsprogramm wird KEINE eigene Schublade für Diavolo Backup anlegen.\n\n" @askdir-help))
  73.                           (default (tackon savedest "Diavolo"))
  74.                           (newpath))
  75.      )
  76.  
  77.      (if (= (exists newdest) 0)
  78.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  79.                           (help @makedir-help)
  80.                           (infos))
  81.      )
  82.  
  83.      (set @default-dest newdest)
  84.  
  85.      (complete 5)
  86.  
  87.      (copyfiles (prompt "Kopiere Diavolo Backup...")
  88.                 (help (cat "Das Hauptprogramm und die Anleitungstexte von Diavolo werden auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  89.                 (source "Diavolo Backup:")
  90.                 (dest @default-dest)
  91.                 (pattern "(Diavolo|Handbuch-Ergänzungen|Probleme&Lösungen|Streamer-Anleitung|Texte_Drucken|LIESMICH_1.18)")
  92.                 (infos))
  93.  
  94.      (makedir (tackon @default-dest "Tape Catalogs") (prompt ("Erstelle Verzeichnis 'Tape Catalogs'!" newdest))
  95.                       (help @makedir-help)
  96.                       (infos))
  97.      (complete 10)
  98.  
  99.      (copyfiles (prompt "Kopiere Fonts...")
  100.                 (help (cat "Zur Sicherheit werden die Fonts in das Diavolo Verzeichnis kopiert\n\n" @copyfiles-help))
  101.                 (source "Diavolo Backup:fonts")
  102.                 (dest (tackon @default-dest "fonts"))
  103.                 (fonts)
  104.                 (confirm)
  105.                 (all))
  106.  
  107.      (complete 15)
  108.  
  109.      (copyfiles (prompt "Kopiere Sprachdateien...")
  110.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  111.                 (source "Diavolo Backup:catalogs")
  112.                 (dest (tackon @default-dest "catalogs"))
  113.                 (all))
  114.  
  115.      (complete 18)
  116.  
  117.      (if (<> (exists "locale:catalogs/deutsch" (noreq)) 0)
  118.          (copyfiles (prompt "Kopiere Sprachdateien...")
  119.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  120.                 (source "Diavolo Backup:catalogs")
  121.                 (dest "locale:catalogs")
  122.                 (all))
  123.      )
  124.      )
  125. )
  126.  
  127. (complete 20)
  128.  
  129.  
  130. (if (<> (BITAND ToDo $2) 0)
  131.     ((copylib (prompt "Installiere XPKmaster.library...")
  132.               (help @copylib-help)
  133.               (source "Diavolo Backup:libs/xpkmaster.library")
  134.               (dest "libs:")
  135.               (confirm)
  136.               (optional nofail askuser))
  137.  
  138.     (complete 35)
  139.  
  140.     (foreach "Diavolo Backup:libs/compressors" "xpk#?.library"
  141.       (copylib (prompt ("Installiere %s" @each-name))
  142.                (help @copylib-help)
  143.                (source (tackon "Diavolo Backup:libs/compressors" @each-name))
  144.                (dest "libs:compressors")
  145.                (confirm)
  146.                (optional nofail askuser))
  147.     )
  148.  
  149.     (complete 52)
  150.  
  151.     (copylib (prompt "Installiere asl.library...")
  152.              (help @copylib-help)
  153.              (source "Diavolo Backup:libs/asl.library")
  154.              (dest "sys:libs")
  155.              (confirm)
  156.              (optional nofial askuser))
  157.  
  158.     (complete 54)
  159.  
  160.     (copylib (prompt "Installiere diskfont.library...")
  161.              (help @copylib-help)
  162.              (source "Diavolo Backup:libs/diskfont.library")
  163.              (dest "sys:libs")
  164.              (confirm)
  165.              (optional nofial askuser))
  166.  
  167.     (complete 56)
  168.  
  169.     (copylib (prompt "Installiere locale.library...")
  170.              (help @copylib-help)
  171.              (source "Diavolo Backup:libs/locale.library")
  172.              (dest "sys:libs")
  173.              (confirm)
  174.              (optional nofial askuser))
  175.  
  176.     (complete 58)
  177.  
  178.     (copylib (prompt "Installiere iffparse.library...")
  179.              (help @copylib-help)
  180.              (source "Diavolo Backup:libs/iffparse.library")
  181.              (dest "sys:libs")
  182.              (confirm)
  183.              (optional nofial askuser))
  184.     
  185.     )
  186. )
  187.  
  188. (complete 60)
  189.  
  190. (if (<> (BITAND ToDo $4) 0)
  191.     ((set newdest (askdir (prompt "Bitte wählen Sie, wo die Anleitungen für die XPK Packer installiert werden sollen.")
  192.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin die \
  193. Anleitungen für die XPK-Packer kopiert werden sollen.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  194. Installationsprogramm wird KEINE eigene Schublade für das XPK-Paket anlegen.\n\n" @askdir-help))
  195.                           (default (tackon savedest "XPK"))
  196.                           (newpath))
  197.      )
  198.  
  199.      (if (= (exists newdest) 0)
  200.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  201.                           (help @makedir-help)
  202.                           (infos))
  203.      )
  204.  
  205.      (working "XPK-Paket wird ausgepackt. Bitte ein Weilchen Geduld...")
  206.      (if (= (substr newdest (- (strlen newdest) 1) 1) ':')
  207.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:XPK/XPKusr_2,4.lha\" \"%s\"" newdest)))
  208.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:XPK/XPKusr_2,4.lha\" \"%s/\"" newdest)))
  209.      )
  210.  
  211.      (if (<> Err 0)
  212.          (message "Fehler beim Auspacken. Das XPK-Paket ist wahrscheinlich nur unvollständig installiert.")
  213.  
  214.          (if (askbool (prompt "Bisher wurden nur die wichtigsten XPK-Algorithmen installiert. Sollen die restlichen Packer ebenfalls installiert werden?")
  215.                       (help @askbool-help)
  216.                       (default 1))
  217.              ((set libsrc (tackon newdest "libs/compressors"))
  218.               (foreach libsrc "xpk#?.library"
  219.                 (copylib (prompt ("Installiere %s" @each-name))
  220.                          (help @copylib-help)
  221.                          (source (tackon libsrc @each-name))
  222.                          (dest "libs:compressors")
  223.                          (confirm)
  224.                          (optional nofail askuser))
  225.               )
  226.              )
  227.          )
  228.      )
  229.      (if (= (BITAND ToDo $1) 0)
  230.          ((set @default-dest newdest)
  231.           (set @app-name "XPK-Paket")
  232.          )
  233.      )
  234.     )
  235. )
  236.  
  237. (complete 100)
  238.  
  239. (exit)
  240.